(where-is): Catch errors in indirect-function.

diff --git a/lisp/help.el b/lisp/help.el
index 4002a0aee1646cd1f3b030fffa0cc9fbf9514fb1..8d0be9b63cc69223b0e01d7b970e2e227cc5823f 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -425,7 +425,9 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
     (mapatoms (lambda (symbol)
                (and (fboundp symbol)
                     (not (eq symbol definition))
-                    (eq func (indirect-function symbol))
+                    (eq func (condition-case ()
+                                 (indirect-function symbol)
+                               (error symbol)))
                     (push symbol defs))))
     (princ (mapconcat
             #'(lambda (symbol)